home *** CD-ROM | disk | FTP | other *** search
/ Virtual Vibrations / Virtual Vibrations.iso / mac / Virtual Vibrations / STAR.DXR / 00020.ls < prev    next >
Encoding:
Text File  |  1994-10-28  |  1.3 KB  |  70 lines
  1. on enterFrame
  2.   global voice
  3.   if the soundEnabled = 0 then
  4.     puppetSprite(48, 1)
  5.     set the castNum of sprite 48 to cast "SoundOff4"
  6.     updateStage()
  7.   end if
  8.   puppetPalette("interactive palette")
  9.   updateStage()
  10. end
  11.  
  12. on mouseDown
  13.   if (the clickOn >= 2) and (the clickOn <= 20) then
  14.     BUTTONDOWN()
  15.   else
  16.     if the clickOn = 48 then
  17.       puppetSound("click")
  18.     end if
  19.   end if
  20. end
  21.  
  22. on mouseUp
  23.   if (the clickOn >= 2) and (the clickOn <= 48) then
  24.     if soundBusy(2) then
  25.       sound stop 2
  26.     end if
  27.     if the clickOn = 2 then
  28.       playafter()
  29.     else
  30.       if the clickOn = 3 then
  31.         playparadise()
  32.       else
  33.         if the clickOn = 4 then
  34.           playcandy()
  35.         else
  36.           if the clickOn = 5 then
  37.             playspy()
  38.           else
  39.             if the clickOn = 6 then
  40.               playpeep()
  41.             end if
  42.           end if
  43.         end if
  44.       end if
  45.     end if
  46.   end if
  47.   if (the clickOn >= 17) and (the clickOn <= 20) then
  48.     puppetSprite(48, 0)
  49.     set voice to 0
  50.     if the clickOn = 18 then
  51.       HIDEBUTTON()
  52.     end if
  53.     if the clickOn = 19 then
  54.       ORDERBUTTON()
  55.     end if
  56.     if the clickOn = 20 then
  57.       RETURNBUTTON1()
  58.     end if
  59.   end if
  60.   if the clickOn = 48 then
  61.     CHANGESOUND4()
  62.   end if
  63. end
  64.  
  65. on exitFrame
  66.   global fixpal
  67.   patchpal()
  68.   go(the frame)
  69. end
  70.